Option Explicit
Sub L_Sample009()
    'ոL_Data03
    Dim mySht     As Worksheet
    Dim myOleF    As Shape
    Dim myOleObj  As OLEObject
    Dim myStr     As String
    Set mySht = Worksheets("L_Data03")			'N
    mySht.Activate
    For Each myOleF In mySht.Shapes
        With myOleF
            If .Type = msoOLEControlObject Then
                Set myOleObj = .OLEFormat.Object
                myStr = myStr & myOleObj.Name & _
                " : " & myOleObj.progID & vbCrLf
            End If
        End With
    Next
    MsgBox myStr
    Set mySht = Nothing						'
End Sub
